##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## No. Code State Number.of.Fatalities..2012
## 1 1 SC South Carolina 63
## 2 2 WV West Virginia 49
## 3 3 MA Massachusetts 44
## 4 4 TN Tennessee 101
## 5 5 OK Oklahoma 97
## 6 6 IL Illinois 146
## Rate.of.Fatalities..2012 State.Rank..Fatalities.2012
## 1 3.5 25
## 2 6.9 46
## 3 1.4 1
## 4 3.8 30
## 5 6.1 42
## 6 2.5 10
## Number.of.Injuries.Illnesses.2012 Injuries.Illnesses.2012.Rate
## 1 36200 3.0
## 2 19800 4.1
## 3 69700 3.1
## 4 65100 3.5
## 5 39000 3.6
## 6 124900 3.2
## Penalties.FY.2013..Average... Penalties.FY.2013..Rank. Inspectors
## 1 492 49 24
## 2 1798 27 7
## 3 1929 21 33
## 4 727 45 30
## 5 1872 24 19
## 6 1876 23 74
## Years.to.Inspect.Each.Workplace.Once State.or.Federal.Program Region
## 1 111 State South
## 2 173 Federal South
## 3 123 Federal Northeast
## 4 82 State South
## 5 131 Federal South
## 6 137 Federal Midwest
## Warning: Ignoring 8 observations
## Warning: `line.width` does not currently support multiple values.
## Warning: `line.width` does not currently support multiple values.
## Warning: Ignoring 1 observations
## Warning in brewer.pal(n = 50, name = "Paired"): n too large, allowed maximum for palette Paired is 12
## Returning the palette you asked for with that many colors
## Warning: Ignoring 8 observations
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length
## Warning in brewer.pal(n = 50, name = "Paired"): n too large, allowed maximum for palette Paired is 12
## Returning the palette you asked for with that many colors
## Warning: Ignoring 1 observations
## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length
